home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Workbench Design
/
WB Collection.iso
/
workbench werkzeuge
/
dateimanager
/
mtool
/
source
/
miconinfo.c
< prev
next >
Wrap
C/C++ Source or Header
|
1996-04-07
|
2KB
|
54 lines
/**************************************************************************/
/* */
/* MIconInfo - Ruft unter OS3.0 WBInfo() auf Version 1.0r001 */
/* */
/* ©1994 Boris Jakubaschk Entwicklungszeit: 28.05.1994 - 28.05.1994 */
/* */
/* Idee und erste Version in E programmiert von Lionel Vintenat */
/* */
/**************************************************************************/
#include <exec/types.h>
#include <exec/libraries.h>
#include <intuition/intuition.h>
#include <clib/exec_protos.h>
#include <clib/intuition_protos.h>
#include <clib/dos_protos.h>
#include <dos/dos.h>
#include <workbench/workbench.h>
#include <string.h>
main( int argc, char *argv[])
{
struct Library *WbBase;
struct Screen *Scr;
char Path[130];
char FileName[30];
char *a;
BPTR FL;
if (WbBase = OpenLibrary( "workbench.library", 39 ))
{
if (argc>1)
{
a = FilePart( argv[1] );
strcpy( Path, argv[1] );
Path[a-argv[1]]='\0';
strcpy( FileName, a );
if ((strlen(FileName)>5)
&& (stricmp( FileName+strlen(FileName)-5, ".info" )==0))
FileName[strlen(FileName)-5] = '\0';
if (FL = Lock( Path, ACCESS_READ ))
{
if (Scr = LockPubScreen( 0 ))
{
WBInfo( FL, FileName, Scr );
UnlockPubScreen( NULL, Scr );
};
UnLock( FL );
};
};
CloseLibrary( WbBase );
};
}